home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Theme3.dxr / Internal_16_entrata article.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  1.7 KB  |  67 lines
  1. on prepareFrame
  2.   global gQuadro, gpittore, gID, gMaxID, gElencoOpere, gAccessoScheda, gIngrandimento
  3.   case gAccessoScheda of
  4.     #back:
  5.       preparascheda()
  6.       sprite(16).visible = 0
  7.       quadro = gQuadro & "04"
  8.       testo = gpittore & gQuadro
  9.       set the member of sprite 10 to quadro
  10.       set the member of sprite 7 to testo
  11.     #ingrandim:
  12.       sprite(16).visible = 1
  13.       quadro = gQuadro & "04"
  14.       testo = gpittore & gQuadro
  15.       set the member of sprite 7 to testo
  16.       sprite(10).member = member(gIngrandimento, "pict")
  17.     #schedina:
  18.       nothing()
  19.     #normale:
  20.       preparascheda()
  21.       sprite(16).visible = 0
  22.       quadro = gQuadro & "04"
  23.       testo = gpittore & gQuadro
  24.       member(testo).scrollTop = 0
  25.       set the member of sprite 10 to quadro
  26.       set the member of sprite 7 to testo
  27.   end case
  28.   if gElencoOpere = 0 then
  29.     if gID = 1 then
  30.       sprite(50).visible = 0
  31.     else
  32.       sprite(50).visible = 1
  33.     end if
  34.     if gID = gMaxID then
  35.       sprite(51).visible = 0
  36.     else
  37.       sprite(51).visible = 1
  38.     end if
  39.   else
  40.     if count(gElencoOpere) < 2 then
  41.       sprite(50).visible = 0
  42.       sprite(51).visible = 0
  43.     else
  44.       posizione = getOne(gElencoOpere, gQuadro)
  45.       if posizione = 1 then
  46.         sprite(50).visible = 0
  47.       else
  48.         sprite(50).visible = 1
  49.       end if
  50.       if posizione = count(gElencoOpere) then
  51.         sprite(51).visible = 0
  52.       else
  53.         sprite(51).visible = 1
  54.       end if
  55.     end if
  56.   end if
  57.   if member("scrollBar").char[gID] = "0" then
  58.     sprite(8).visible = 0
  59.     sprite(9).visible = 0
  60.   else
  61.     if member("scrollBar").char[gID] = "1" then
  62.       sprite(8).visible = 1
  63.       sprite(9).visible = 1
  64.     end if
  65.   end if
  66. end
  67.